(Buffer-menu-buffer+size): Don't clobber buffer name.
authorAndreas Schwab <schwab@suse.de>
Sun, 5 Jan 2003 17:45:10 +0000 (17:45 +0000)
committerAndreas Schwab <schwab@suse.de>
Sun, 5 Jan 2003 17:45:10 +0000 (17:45 +0000)
lisp/buff-menu.el

index a49244ce60d09efa2a258e3d0c26bfa20d199ccd..205a8ab7d32577db7d020135bc27f1090b59fe10 100644 (file)
@@ -1,6 +1,6 @@
 ;;; buff-menu.el --- buffer menu main function and support functions
 
-;; Copyright (C) 1985, 86, 87, 93, 94, 95, 2000, 2001, 2002
+;; Copyright (C) 1985, 86, 87, 93, 94, 95, 2000, 2001, 2002, 2003
 ;;   Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
@@ -529,7 +529,9 @@ For more information, see the function `buffer-menu'."
                                 (- Buffer-menu-buffer+size-width
                                    (max (length size) 3)
                                    2))
-                     ":"))))           ; narrow ellipsis
+                     ":")))            ; narrow ellipsis
+    ;; Don't put properties on (buffer-name).
+    (setq name (copy-sequence name)))
   (add-text-properties 0 (length name) name-props name)
   (add-text-properties 0 (length size) size-props size)
   (concat name